home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 November (Bonus) / GAMESTAR11B.ISO / ENCYC99 / MM / T620275A.DCR / Scripts_11_movie script.ls < prev    next >
Encoding:
Text File  |  1998-06-29  |  1.3 KB  |  43 lines
  1. global cursorGod, LabelGod, layerList, ScrollBar, infoBox
  2.  
  3. on startMovie
  4.   set the alertHook to new(script "theAlertHook")
  5.   set thestagewidth to the stageRight - the stageLeft
  6.   set thestageheight to the stageBottom - the stageTop
  7.   set sendThis to "window size: [" & thestagewidth & "], [" & thestageheight & "]"
  8.   sendoff(sendThis)
  9.   set layerList to []
  10.   set layerNames to value(the text of member "layerNames")
  11.   repeat with i in layerNames
  12.     set defText to the text of member (i && "Definition")
  13.     set layerDef to [:]
  14.     do("set layerDef to " & defText)
  15.     add(layerList, new(script "Class Layer", layerDef))
  16.   end repeat
  17.   set backLabelSprite to 38
  18.   set frontLabelSprite to 39
  19.   set LabelGod to new(script "Class LabelGod", backLabelSprite, frontLabelSprite)
  20.   set bgSprite to 5
  21.   set upSprite to 6
  22.   set downSprite to 7
  23.   set grabberSprite to 8
  24.   set scrolledSprite to 2
  25.   set scrolledLineHeight to 13
  26.   set ScrollBar to new(script "Class ScrollBar", "light", bgSprite, upSprite, downSprite, grabberSprite, scrolledSprite, scrolledLineHeight)
  27.   set cursorGod to new(script "Class CursorGod")
  28.   subscribe(ScrollBar, cursorGod)
  29.   set infoBox to new(script "Class InfoBox", ScrollBar)
  30.   repeat with i in layerList
  31.     linkUp(i, LabelGod, infoBox)
  32.     subscribe(i, cursorGod)
  33.   end repeat
  34. end
  35.  
  36. on idle
  37.   mouseCheck(cursorGod)
  38. end
  39.  
  40. on EvalScript xString
  41.   nothing()
  42. end
  43.